% --------------------------------------------------------------------------
% Style File Scrdumps.Sty
% Copyright 1993 by Sally I/S
% This file may be distributed freely.
% --------------------------------------------------------------------------
\font\screendumptextfont=cmtt8
\let\screendumpsymfonta=\egtsy
\let\screendumpsymfontb=\egtly
\let\screendumpsymfontc=\egtmi
% --------------------------------------------------------------------------
{\catcode`\#=\active\gdef#{\char}}%
\def\scrdump#1{{%
  \screendumptextfont\setbox0\hbox{0}\unitlength=\wd0
  \def\0##1{\hbox to \wd0{\hss\screendumpsymfonta##1\hss}}%
  \def\1##1{\hbox to \wd0{\hss\screendumpsymfontb##1\hss}}%
  \def\2##1{\hbox to \wd0{\hss\screendumpsymfontc##1\hss}}%
  \def\cents{\hbox{\rlap/c}}%
  \def\Yen{\hbox{\rlap=Y}}%
  \def\pounds{\0{\egtit\char36}}%
  \def\frac##1##2{\hbox to \wd0{\tiny\vbox{\hbox{##1}\hrule width\wd0\hbox{##2}}}}%
  \def\lift##1{\hbox to \wd0{\hss\raise 0.5\wd0\hbox{##1}\hss}}%
  \def\liftb##1{\hbox to \wd0{\hss\tiny\vbox{\hbox{##1}\hrule\hrule width 0in height 0.5ex}\hss}}%
  \def\circ##1{\0{\ooalign{\hfil\raise.07ex\hbox{\tiny##1}\hfil\crcr\egtsy\char13}}}%
  \def\Box{\vrule width\wd0 height 1.5\wd0 depth +0.5\wd0\relax}%
  \def\BOx{\vrule width\wd0 height 0.5\wd0 depth +0.5\wd0\relax}%
  \def\BOX{\vrule width\wd0 height 1.5\wd0 depth -0.5\wd0\relax}%
  \def\bOX{\vrule width 0.5\wd0 height 1.5\wd0 depth 0.5\wd0\hskip 0.5\wd0\relax}%
  \def\boX{\hskip 0.5\wd0\vrule width 0.5\wd0 height 1.5\wd0 depth 0.5\wd0\relax}%
  \catcode`\#=\active
  \begin{center}%
    \begin{picture}(80,50)%
      \input{#1.scr}%
    \end{picture}%
  \end{center}%
}}
